Building the Cayley graphs of the alternating group and the symmetric group using the function in Mathematica 8:
A
4
S
4
Row[{CayleyGraph[AlternatingGroup[4],BaseStyleThick,ImageSize220],Spacer[50],CayleyGraph[SymmetricGroup[4],BaseStyleThick,ImageSize220]}]